home *** CD-ROM | disk | FTP | other *** search
/ A.C.E. 2 / ACE CD 2.iso / FILES / UTILS / AMOSPRO6.DMS / in.adf / Procedures / Screen_FX / _Wipe2.AMOS / _Wipe2.amosSourceCode next >
Encoding:
AMOS Source Code  |  1992-09-29  |  1.2 KB  |  32 lines
  1. '******************************************************* 
  2. '*                                                     * 
  3. '* AMOS Professional Procedure Library                 * 
  4. '*                                                     * 
  5. '* Procedure: Screen Wipe 2                            * 
  6. '*                                                     * 
  7. '*    Author: N.P. Hayman-Joyce                        * 
  8. '*                                                     * 
  9. '******************************************************* 
  10.  
  11. For A=0 To 60
  12.    Print "AMOS Professional  ";
  13. Next A
  14. Wait 50
  15. _XWIPE2
  16.  
  17. ' XWipe2 - Double XWipe by N.P.Hayman-Joyce (OWL)        
  18. ' Use this wipe anywhere in your program by typing " proc _XWIPE2 ".   
  19. Procedure _XWIPE2
  20.    ' This gets the four screen corners as coordinates for the lines.
  21.    X1=320 : Y1=0 : X2=0 : Y2=200 : X3=0 : Y3=0 : X4=320 : Y4=200
  22.    Do 
  23.       ' This sets the ink colour to black. 
  24.       Ink 0
  25.       ' This draws the two lines.
  26.       Draw X2,Y2 To X1,Y1 : Draw X3,Y3 To X4,Y4
  27.       ' This exits when the wipe is complete.
  28.       Exit If X4=0
  29.       ' This changes all the coordinates, moving the lines.
  30.       X3=X3+1 : X4=X4-1 : Y1=Y1+1 : Y2=Y2-1
  31.    Loop 
  32. End Proc